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DECUS Program Library Write-up 


DECUS No. 8-129 


A PROGRAM LIBRARY SYSTEM 
FOR THE PDP-8 COMPUTER USING 
IBM-COMPATIBLE MAGNETIC TAPE 


Abstract 


This system enables the user to create 
a large library of programs for the PDP-8 
computer which can be written on and 
called off IBM tape by name from the tele¬ 
type. It also includes high-speed and low- 
speed BIN and RIM paper tape loaders, 
which are also called in from the teletype. 
The entire system uses only the last page 
of memory. 

Programs may be subdivided into 
several records on tape, each with the 


same name. When a program is called, 
all records with that label are loaded into 
core. This makes it possible to modify, 
correct, or add to programs by adding 
records of the same name to the library. 

A switch option permits programs to be 
relocated in core as they are loaded in. 

If a program is stored as several records, 
they may be individually relocated. 


Introduction 


The PDP-8 is enjoying widespread use 
in the small general-purpose computer 
field. However, the basic machine is 
limited to paper tape as a means of pro¬ 
gram storage, so that the user is constantly 
involved with the well-known problems of 
low speed, mechanical reader failure, and 
wear and tear on his frequently used tapes. 
Also, unless fan-fold is used, the paper 
tapes are difficult to handle and store. 

Those users having DECtape have a 
convenient means of program storage and 
retrieval, but no such capability exists 


for PDP-8 installations with the 57A Mag¬ 
netic Tape Control and IBM-compatible 
transports. The library system described 
in this report was developed to fill this 
need. 

The library has several important 
features: 

1. Since almost all operations are con¬ 
trolled from the keyboard, the 
system is convenient to use and is 
easily learned, even by those un¬ 
familiar with the PDP-8. 
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2. Programs are called in by name 
from the teletype. This label may 
contain up to twelve characters. If 

a typing error is made, the RUBOUT 
key is used to delete the erroneous 
label. 

3. Paper-tape capabilities are fully 
retained. BIN or RIM loaders are 
called off the library tape by typing 
the letters B or R. 

4. All system operations use only the 
last page of memory. This is 
accomplished by swapping the various 
loaders in and out of core from the 
library tape. 

5. Library programs may be of any 
length and may occupy any portion 
of memory except the last page. 

6. When a program is called in, a 
switch option may be set if relocation 
is desired. The computer halts 
before loading the program in, 
allowing the operator to set the 
switch register to the new page at 
which he wishes to start loading the 
program. 

7. After reading a program or loader 
off the library tape, the computer 
checks the parity error flag and 
halts on an error. The operator 
has the option of repeating the opera¬ 
tion or ignoring the error and 
attempting to proceed. 

8. After writing a program on the 
library tape, the computer reads it 
back and compares it word for word 
with the program in memory. If a 
discrepancy is found, the computer 


erases three inches of tape, and 
writes and checks the program 
again. 

9. More than one program with the 
same name may be added to the 
library. When that name is called, 
all programs with that label are 
loaded in. This is useful if the 
program is subdivided into non- 
adjacent core areas. It also pro¬ 
vides the capability of making future 
corrections and additions to library 
programs. It is possible to in¬ 
dividually relocate the various sec¬ 
tions of divided programs. 

10. If the desired program is found and 
loaded in without error, the teletype 
prints "OK." There is no printout 

if no program exists with the given 
label. 

11. Unless the relocation option is re¬ 
quested, tape motion is continuous 
during the search and load operation. 
This speeds up the search and re¬ 
duces wear on the transport. 

12. A tape with one hundred typical pro¬ 
grams may be searched and a pro¬ 
gram loaded in about 30 sec, using 
a 112.5 in./sec transport. The 
library can hold 1365 programs, 
which requires a maximum of 

1800 feet of tape at 800 cpi density. 

13. Library material need not be exe¬ 
cutable programs. For example, 
the system may be used to fill 
memory (except the last page) with 
HLT, NOP, or zeros, or for data 
storage. 



System Requirements 


The library system operates with a 
basic PDP-8 with 4096-word memory, 
ASR-33 teletype, 57A Magnetic Tape 
Control, and a single tape transport. The 
system is in use on an IBM 729-VI trans¬ 
port. Modifications to the rewind portion 


of the Bootstrap program may be required 
if other transports are used; however 
this is not certain. The selected trans¬ 
port is Unit 1. The programs write tape 

at 800 cpi with odd parity. 


Library Tape Organization 

Beginning at the load point, the library tape is laid out as follows: 


Record 

Length (Octal PDP-8 words) 

Command Record 

137 


BIN Record 

137 


Fetch Record 

137 

> Executive Records 

Write Record 

137 


RIM Record 

137 


Label Record 

14 


Location Record 

14 

First Program 

Program Record 

1-7600 


etc. 

Label Record 

14 


Location Record 

14 

Last Program 

Program Record 

End of File 

1-7600 



The five Executive Records occupy the 
beginning of the tape and contain the 
actual routines for the library system 
operations. They are all the same length 
and are swapped in and out of the last page 
of core. 

Programs are stored on the remainder 
of the tape with three records each. The 


first, or Label Record, contains the 
twelve-character name of the program. 

The second, or Location Record, specifies 
where in memory the program is to be 
loaded in. The third, or Program Record, 
is the program itself. An End of File 
follows the last program. 
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Memory Map 


The library routines occupy the last page of core as follows: 

7600 - 7623 Mag Tape Bootstrap 7763 FLAG 

7624 - 7762 One of the five Executive 

Records 77 64 - 7777 Teletype label buffer 

Program Operation 


BOOTSTRAP 

The Bootstrap resides permanently in 
core. When started at location 7600, it 
rewinds the tape, reads the Command 
Record into locations 7624 - 7762, and 
transfers control to it. When the tape 
starts rewinding, the teletype bell is rung. 
This provides a 100-msec programmed 
delay which is necessary before the Unit 
Ready Flag can be sampled (at least if 
the IBM 729-VI transport is used) and 
alerts the operator that the Command 
Record is about to be read in. 

COMMAND RECORD 

The Command Record supervises the 
library system. It accepts operator 
commands and program labels from the 
teletype and passes control to the other 
four Executive Records. When entered 
from the Bootstrap, the Command Record 
first checks the contents of location 7763 
(FLAG) and prints "OK" if FLAG is non¬ 
zero. (FLAG is cleared by the Bootstrap 
but is later set to indicate proper execu¬ 
tion of the Fetch, Write, and BIN opera¬ 
tions. ) The system is now awaiting a 
teletype command and is said to be in the 
Command Mode. The command may be 
an F, W, B, or R, depending on whether 


the operator wants to Fetch or Write a 
program on the library tape, or use the 
BIN or RIM loaders. Any other letter is 
illegal and causes a question mark to be 
printed. 

If commands B or R are given, the 
Command Record immediately loads the 
BIN or RIM Record in over itself. To 
read the BIN Record, the program simply 
jumps to the middle of the Bootstrap 
(location 7 612), which reads the next 
record into locations 7624 - 7762 and be¬ 
gins executing it. The REM Record is 
loaded the same way, except that the 
Command Record spaces forward over 
three records before jumping to 7612. 

The BIN and RIM Records are described 
in detail below. 

When the command is F or W, the 
Command Record first accepts a label 
typed by the operator before transferring 
control to the Fetch or Write Record. For 
programming convenience, 215(8) is sub¬ 
tracted from label characters before they 
are stored in the buffer (locations 7764 - 
7777). The label is terminated when the 
operator types either the twelfth character 
or the RETURN key. In the latter case, 
the program fills the remainder of the 
buffer with zeros. At this point, the 
program spaces the tape forward one or 
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two records (depending on the command) 
and jumps to location 7612 in the Boot¬ 
strap, which reads either the Fetch or 
Write Record in over the Command Record 
and begins executing it. The Fetch and 
Write Records are described in detail 
below. 

BIN RECORD 

The BIN Record operates identically to 
DIG-8-2-U revised 3/23/66. It will load 
programs into Extended Memory and pro¬ 
vides a switch option for high-speed or 
low-speed readers. When it is entered 
via the Command Record, the BIN Record 
first halts to allow the operator to load 
his paper tape, set bit 0 of the Switch 
Register for high or low speed reader, 
and turn the reader on. When the CON¬ 
TINUE key is pressed, the program reads 
in the BIN tape, halting at the end so the 
operator can turn the reader off. The AC 
(Accumulator) holds the checksum. When 
CONTINUE is pressed again, the AC is 
set if the checksum is zero, but cleared 
otherwise, and the program jumps out to 
the Bootstrap at 7 600. The Bootstrap 
stores the AC in FLAG, rewinds the tape, 
and enters the Command Record. "OK" 
is now printed if FLAG is set (zero 
checksum), and the next command is 
awaited. 

RIM RECORD 

The RIM Record contains high-speed 
and low-speed RIM loaders, which the 
operator selects with bit 0 of the Switch 
Register. When entered via the Command 
Record, the RIM Record first halts to 
allow paper tape loading and switch setting. 


The selected reader loads the RIM tape 
when CONTINUE is pressed. There is no 
exit from this program and the Bootstrap 
must be restarted at 7600 to reenter the 
Command Mode. 

WRITE RECORD 

After the operator has typed a W and 
the name of the program he wishes to add 
to the library, the Command Record re¬ 
places itself with the Write Record and 
begins executing it. This is the routine 
that writes on the tape the three records 
associated with that program. It begins 
with two halts which allow the operator 
to enter the IA (Initial Address) and FA 
(Final Address) of the program into the 
Switch Register. "IA/" and "FA/" are 
printed out to tell the operator which 
number to load next. 

The tape is then spaced out to the EOF 
(End of File) and backspaced over the 
EOF, and the label buffer is written as 
the 12-word Label Record. The program 
then replaces the first character of the 
label buffer with LA-1 and writes the label 
buffer on tape again, this time as the 
12-word Location Record. Next, the 
Program Record itself is written, the 
Word Count being computed from the IA 
and FA provided by the operator. After 
each of the three records is written, it is 
backspaced over and tested with a Read 
Compare operation. If an error is found, 
the faulty record is backspaced over, 
three inches of blank tape are written 
(write EOF and backspace), and the record 
is written and checked again. This re¬ 
peats until a good record is written. 
Finally, new EOF is written and the pro¬ 
gram jumps out to the Bootstrap, which 
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rewinds the tape and loads in the Command 
Record. FLAG has been set by the tem¬ 
porary storage of -FA, which will always 
be non-zero (writing the last page of core 
on tape is forbidden), so the teletype 
prints "OK". The system is again in the 
Command Mode. 

A maximum of 1365 programs can be 
written. This figure is dictated by the 
fact that when the tape is commanded to 
space to EOF (Space Forward Continuous 
with Word Count = 0), it will stop after 
4096 records if EOF is not sensed first. 
When 1365 programs are on the tape and 
space to EOF is commanded, the tape 
will space forward 4096 records (1365 X 3 
records per program plus one for the 
RIM Record) and halt just before the EOF. 
For this reason, the 1366th program will 
be written in the wrong place. However, 
in most applications this limit will never 
be approached. Even if it were, a 2400-ft 
reel of tape would not be exhausted, be¬ 
cause the maximum program (locations 
0000 - 7 600) occupies only about 15 in. of 
tape, including the Label and Location 
Records. 

FETCH RECORD 

The Command Record calls and begins 
executing the Fetch Record when the 
operator has typed an F and the name of 
the program he wishes to load. This 
routine searches the tape and loads in all 
programs having that name. It also con¬ 
trols relocation of the program if the 
operator has requested it by setting bit 11 
of the Switch Register before the tape 
search starts. 

The Fetch Record begins in the Read 
Compare Continuous mode to search the 


tape for the label stored in the teletype 
buffer. Every record is searched, begin¬ 
ning with the Write and RIM Records and 
continuing into the Label, Location, and 
Program 1 Records of the library. The 
Word Count is cleared before each record, 
so that the entire record is compared 
against the same number of core words, 
starting at the label buffer. This makes 
it extremely unlikely that a match will be 
found in any but the desired label record, 
and in fact no such problem has occurred 
in our library. 

At the end of each record, the Read 
Compare Error and End of File status 
bits are tested to see if the label has been 
found or the end of the library reached. 
When the label is found, the first word 
(IA-1) of the following record (the Location 
Record) is read in and temporarily stored 

in FLAG. Bit 11 of the Switch Register 
is then tested to see if the operator has 
requested relocation, and if so, the tele¬ 
type prints "PG/" and the tape and com¬ 
puter halt to allow him to set the reloca¬ 
tion page in the Switch Register. At this 
point the Accumulator displays the unre¬ 
located IA. Relocation is accomplished 
by moving this IA to the same location on 
another page; it will work only for single¬ 
page programs, or multi-page programs 
whose indirect linkages are all on page 
zero. When the CONTINUE key is pressed, 
the relocated IA is computed by combining 
bits 0-4 of the Switch Register with bits 
5-11 of the AC, and the Program Record 
is loaded in, beginning at that address. 

If relocation was not requested, the 
Program Record is immediately loaded 
in at the IA specified in the Location 
Record. Whether the program is relocated 
or not, the Word Count is cleared before 


- 6 - 





the program is read in, so words con¬ 
tinue to enter core until the end of the 
record is reached. Tape parity is then 
checked. The computer clears FLAG 
and halts with the Link=l on an error. 
Otherwise FLAG is set and the Head 
Compare Continuous mode is resumed to 
search for other records with the same 
label. 

Each time the label is found, the pro¬ 
gram is read in and relocated as above, 
so that if a program has been subdivided 
into several records, they may be in¬ 
dividually relocated. This would be use¬ 
ful, for example, in relocating the main 
body of a program while leaving linkages, 
constants, and subroutines on page zero. 

The search continues until the EOF is 
found. The Bootstrap is then reentered 
to rewind the tape and read in the Com¬ 
mand Record. "OK" will be printed if 
FLAG is set, indicating that the program 
has been found and that the last Program 
Record was loaded in with no parity error. 
The system is again in the Command 
Mode. The program may then be started 
from the console switches in the normal 
manner. 

Deletions from the library are im¬ 
possible. However, if the user desires 
to correct, modify, or add to a program. 


he simply adds to the library, using the 
same name as the original program. When 
the program is fetched, the new version 
will load in over the old one. 

GENERATE PROGRAM 

The Generate Program is not part of 
the operating library system, but is used 
to create new library tapes by writing the 
five Executive Records on them. The 
Generate Program and the Executive 
Records are first placed in core by loading 
the Master Generator paper tape. The 
Executive Records then occupy the five 
core pages starting at 6400, 6600, 7000, 
7200, and 7400, while the Generate Pro¬ 
gram itself occupies the page starting at 
6200. When started at 6200, the Generate 
Program writes each Executive Record 
on the new tape, starting at the load point, 
and checks each one with a Read Compare. 
It halts on an error with the address +1 
of the error word in the Accumulator. If 
CONTINUE is pressed, 3 in. of blank 
tape are written, and the record is written 
and checked again. When the last record 
has been successfully written, the com¬ 
puter writes an EOF and halts. The Boot¬ 
strap can then be toggled in and programs 
written on the new library tape. 


Operating Instructions 


GENERATING A NEW LIBRARY TAPE 

1. Load the Master Generator binary 
paper tape. 

2. Hang a blank magnetic tape on the 
transport, with the write lock ring in. 
Select Unit 1. 


3. LOAD ADDRESS 6200, START. The 
five Executive Records are written on 
the tape, followed by an EOF. The 
computer halts with the AC and Link=0. 
The library is ready for use. 

4. If the computer halts with the AC not 
zero, a Read Compare error has been 
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found. The AC displays the address 
+1 of the first word in error. Press 
the CONTINUE key to write 3 in. of 
blank tape and repeat the faulty record. 

USING THE LIBRARY 

1.0 Hang the library tape on the transport 
and select Unit 1. Unless programs 
are to be written, the write lock ring 
should be removed. 

2.0 Toggle the Mag Tape Bootstrap into 
locations 7600 - 7623. 

3.0 LOAD ADDRESS 7600, START. The 
bell rings and the system enters the 
Command Mode . 

4.0 Type an F to Fetch a library program, 
a W to Write a new program on the 
library, a B to use the BIN loader, 
or an R to use the RIM loader. Any 
other command is illegal and causes 
the computer to print a question mark 
and reenter the Command Mode. 

5.0 To Fetch a program (command F was 
typed): 

5.1 Type in the exact label of the 
program. If an error is made, 
type RUBOUT and start the label 
over. 

5.2 After the last character, type 
RETURN to start the tape search. 
(If the label has 12 characters, 
the last one automatically initiates 
the search.) When the end of the 
library is reached, the bell rings, 
the tape rewinds, and the Com¬ 
mand Mode is reentered. "OK" 

is printed out if the desired pro¬ 
gram was loaded in. If no pro¬ 
gram with that name was found, 
there is no printout. Go to step 
4.0 or start the loaded program 


with the console switches in the 
normal manner. 

5.3 If relocation is desired, set SR 
(Switch Register) bit 11 to 1 
before the tape search is started. 
Whenever the label is found, the 
computer prints "PG/" and halts 
with the unrelocated IA (Initial 
Address) in the AC. Set SR bits 
0-4 to the relocated page address 
and hit the CONTINUE key. SR 
bits 0-4 and AC bits 5-11 form 
the relocated IA (SR bits 5-11 are 
ignored). The program is loaded 
in at that address and the search 
is resumed. Leave SR bit 11=1 
to relocate subsequent records 
with the same label, otherwise 
set SR bit 11 =0. Caution : Do not 
relocate programs into the last 
page of core. 

6.0 To Write a program on the library 

(command W was typed): 

6.1 Type in any label up to twelve charac¬ 
ters long. Incase of a mistake, type 

RUBOUT and start a new label. 
After the last character, type 
RETURN. (If 12 characters are 
typed, the last automatically 
terminates the label.) 

6.2 The computer prints "LA/" and 
halts with the AC=0. Set the 
Switch Register to the Initial 
Address of the program and hit 
the CONTINUE key. 

6.3 The computer prints "FA/" and 
halts with the AC displaying the 
IA just loaded. Set the Switch 
Register to the Final Address of 
the program and hit the CON¬ 
TINUE key. Any area of core 
except the last page may be 
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written on tape. The computer 
prints "OK" and reenters the 
Command Mode when it finishes 
adding the new program to the 
library. 

7.0 To use the BIN Loader (command B 
was typed): 

7.1 The computer halts with the Link 
and AC=0. Set SR bit 0 to 1 for 
the low speed reader or to 0 for 
the high speed reader. 

7.2 Place the paper tape in the reader 
and turn the reader on (if ASR 33). 

7.3 Hit the CONTINUE key. The BIN 
tape is loaded and the computer 
halts with the checksum in the 
AC. Turn the reader off (if 
ASR 33). 

7.4 Press the CONTINUE key to re¬ 
enter the Command Mode. The 
computer prints "OK" if the 
checksum was zero, nothing other¬ 
wise. If CONTINUE is not hit at 
this time, the BIN Record re¬ 
mains in memory and may be 
manually started at location 7627 
at any time. 

8.0 To use the RIM Loader (command R 
was typed): 

RIM tapes are loaded the same as 
BIN tapes as described in steps 7.1 - 
7.3. There is no checksum halt, 
however, and the Bootstrap must be 
restarted at 7600 to reenter the Com¬ 
mand Mode. If left in core, the RIM 
Loader may be manually started at 
7627 at any time. 

9.0 Error Conditions and Recoveries 

9.1 In general, if the computer halts 
in the library system with the 


Link 1, an error has been de¬ 
tected. The one exception is the 
checksum halt in the BIN Loader, 
where the link may =1. If the 
Link=0 at any halt, it is not an 
error halt. 

9.2 Whenever one of the five Execu¬ 
tive Records is read into the last 
page of memory, the computer 
checks the tape parity error flag 
and halts on an error with the 
Link=l and the AC=0. For the 
BIN and RIM Records, this halt 
is at location 7626. The com¬ 
puter always halts at this address 
so that the operator can load his 
paper tape, but the Link=l only 
on a parity error. For the Com¬ 
mand, Fetch, and Write Records, 
the error halt is at location 7627. 

In all cases, the error may be 
ignored by hitting the CONTINUE 
key, but it is safer to restart 

the Bootstrap at 7600 and try again. 

9.3 When fetching a program from 
the library, the computer will 
halt at location 7627 with the 
Link=l and the AC=0 if a parity 
error is found in a Program 
Record. The operator may 
ignore the error by hitting CON¬ 
TINUE, or may restart the Boot¬ 
strap at 7600 and repeat the 
operation. Although this halt is 
at the same address as the parity 
error halt for the Fetch Record, 
the Fetch Record halt occurs 
immediately after the label is 
typed in, while the Program 
Record halt occurs after the 
computer has searched the tape 
and found the label. 
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Program Listing 


Listings for the Bootstrap, Generate 
Program, and the five Executive Records 
are given. 

The Executive Records are listed at 
their core addresses on the Master Gen¬ 
erator paper tape. These are the loca¬ 
tions they occupy when the Generator 


Program writes them on a new library 
tape. However, in actual use the Execu¬ 
tive Records alternately occupy the last 
page of core. 

Each Executive Record was written 
and assembled as an independent one- 
page program. Therefore, many duplicate 
tags exist among the various programs. 


7600 

3363 

/PDP-8/57A MAG 
/SAr7600 
♦ 7600 

FLAG=7763 

BOOT* DCA FLAG 

TAPE LIBRARY 7/21/67 BOOTSTRAP 

/STORE FLAG (CLEAR FLAG ON 1ST PASS) 

7601 

1220 

TAD RWND 


7602 

6706 

BELL* MTS 


7603 

6716 

MTC 

/REWIND TAPE 

7604 

1202 

TAD BELL 


7605 

6046 

TLS 

/RING BELL 

7606 

6041 

TSF 


7607 

5206 

JMP .-1 

/WAIT 1)00 msec. 

7610 

671 1 

MSUR 


761 1 

5210 

JMP .-1 

/WAIT TILL REWIND FINISHED 

7612 

7623 

NEXT * 7623 

/ACTS AS CLA 

7613 

1212 

TAD NEXT 


7614 

6745 

MCA 

/LOAD LA-1 INTO CA AND CLEAR WC 

7615 

1221 

TAD RD 


7616 

6706 

MTS 

/SELECT UNIT 1, ODD PARITY, 800 BPI, LOW SLICE 
/READ RECORD INTO LOCATIONS 7624-7762 

7617 

6716 

MTC 

7620 

1101 

RWND* 1101 

/DUMMY COMMAND 

7621 

7675 

RD* 7675 

/ACTS AS CLA 

7622 

6701 

MSCR 


7623 

5222 

JMP •-1 

/WAIT UNTIL RECORD LOADS IN, THEN EXECUTE. 


BELL 7602 
BOOT 7600 
FLAG 7763 
NEXT 7612 
RD 7621 
RWND 7620 
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/PDP-8/57A MAG 
+ 6424 

NEAT = 64|2 

TAPE LIBRARY 7/21/67 COMMAND RECORD 

6424 

6734 

MTRS 

/ENTER l 1 'ROM BOOTSTRAP 

6425 

7006 

RTL 

6426 

7630 

SZL CLA 


6427 

7402 

HLT 

/PARITY ERROR. LINK IS 1, AC IS p. 

6430 

1363 

START, TAD FLAG 

6431 

7640 

SZA CLA 


6432 

5277 

Q » JMP TYPOK 

/FLAG IS 1. TYPE "OK". 

6433 

4255 

JMS CRLF 

6434 

4255 

JMS CRLF 


6435 

6436 

4263 

1311 

JMS READ 

TAD M302 

/COMMAND MODE. GET COMMAND CHARACTER. 

6437 

7450 

SNA 

/B 

6440 

5354 

JMP B 

6441 

1312 

TAD M4 


6442 

7450 

SNA 


6443 

5321 

JMP FETCH 

/F 

6444 

1313 

K, TAD Ml 4 

6445 

7450 

SNA 


6446 

5305 

JMP RIM 

/R 

6447 

1314 

TAD M5 

6450 

7650 

SNA CLA 


6451 

5320 

JMP WRITF 

/W 

6452 

1232 

TAD G 

6453 

4271 

JMS PRINT 

/ILLEGAL CHARACTER. PRINT "?" 

6454 

5230 

JMP START 

/GET NEW COMMAND. 

6455 

0000 

CRLF, 0 

/PRINTS CR, LF 

6 456 

1317 

0, TAD CR 

6457 

4271 

JMS PRINT 


6460 

1355 

TAD LF 


6461 

4271 

JMS PRINT 


6462 

5655 

JMP I CRLF 


6463 

0000 

READ, 0 

/GETS KEYBOARD CHARACTER 

6464 

6031 

KSF 

6465 

5264 

JMP .-1 


6466 

6036 

KRB 


6467 

6046 

TLS 


6470 

5663 

JMP I READ 


6471 

0000 

PRINT, 0 

/PRINTS CHARACTER 

6472 

6041 

TSF 


6473 

5272 

JMP .-1 


6474 

6046 

TLS 


6475 

7200 

CLA 


6476 

567! 

JMP I PRINT 


6477 

1256 

TYPOK, TAD 0 

/PRINTS "OK" 

6500 

4271 

JMS PRINT 

6501 

1244 

TAD K 


6502 

4271 

JMS PRINT 


6503 

3363 

DCA FLAG 

/CLEAR FLAG 

6504 

5230 

JMP START 

/ENTER COMMAND MODE 

6505 

1316 

RIM, TAD M3 

6506 

3356 

DCA FWD 

/LOAD RECORD COUNTER WITH -3 

6 507 

5342 

JMP SPACE 

6510 

1661 

T1661, 1661 


651 1 

7476 

M302, -302 


6512 

7774 

M4, -4 


6513 

7764 

M14, -14 


6514 

7773 

M5, -5 
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/COMMAND RECORD 


6515 

7777 

Ml# -1 

6516 

7775 

M3# -3 

6517 

0215 

CR# 215 

6520 

1315 

WRITE# TAD Ml 

6 521 

1315 

FETCH# TAD Ml 

6522 

3356 

DCA FWD 

6523 

4255 

LABEL# JMS CRLF 

6524 

1362 

TAD LBL1A 

6525 

3357 

DCA ADR 

6526 

4263 

CHAR# JMS READ 

6527 

1360 

TAD M377 

6 530 

7450 

SNA 

6531 

5323 

JMP LABEL 

6532 

1361 

TAD PI 62 

6533 

7440 

SZA 

6534 

5337 

X# JMP STORE 

6535 

1334 

TAD X 

6536 

3341 

DCA STORE+2 

6537 

3757 

STORE# DCA I ADR 

6540 

2357 

ISZ ADR 

6541 

5326 

JMP CHAR 

6542 

6745 

SPACE# MCA 

6543 

1356 

TAD FWD 

6544 

6742 

MRWC 

6545 

7200 

CLA 

6546 

1310 

TAD T1661 

6547 

6706 

MTS 

6550 

6716 

MTC 

6551 

6701 

MSCR 

6 552 

5351 

JMP .-1 

6553 

7200 

CLA 

6554 

4255 

B» JMS CRLF 

6555 

5212 

LF# JMP NEXT 

6556 

0000 

FWD# 0 

6557 

0000 

ADR# 0 

6560 

7401 

M377# -377 

6561 

0162 

PI 62# 162 

6562 

7764 

LBLIA# 776 A 

6563 

0000 

FLAG# 0 


/LOAD RECORD COUNTER WITH -1 OR -2 
/ROUTINE ENTERS LABEL FOR FETCH OR WRITE 


/INITIALIZE LABEL ADDRESS 
/GET LABEL CHARACTER 


/RUBOUT. RE-INITIALIZE LABEL. 


/CHAR WAS CR. CHANGE "JMP CHAR" TO "JMP STORES”... 
/ TO FILL REST OF LABEL WITH ZEROS. 

/STORE (CHAR-215), OR ZERO IF CR WAS HIT. 

/GET NEXT CHAR, OR ANOTHER ZERO IF CR WAS HIT. 
/LABEL BUFFER FULL. CLEAR CA AND WC. 

/LOAD WC WITH RECORD COUNTER 


/SPACE FORWARD 1, 2, OR 3 RECORDS 


/P RINX C R LF 

/ENTER BOOTSTRAP TO READ RECORD IN OVER THIS ONE 


ADR 

6557 

B 

6554 

CHAR 

6526 

CR 

6517 

CRLF 

6455 

FETCH 

6521 

FLAG 

6563 

FWD 

6556 

K 

6444 

LABEL 

6523 

LBLIA 

6562 

LF 

6555 

Ml 

6515 

Ml 4 

6513 

M3 

6516 

M302 

651 1 

M3 7 7 

6560 
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/COMMAND RECORD 


M4 6512 

M5 6514 

NEXT 64 IP 
0 6456 

PRINT 6471 
P162 6561 

0 6432 

READ 6463 
RIM 6505 
SPACE 6542 
START 6430 
STORE 6537 
TYPOK 6477 
T1661 6510 

WRITE 6520 
X 6534 
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6624 

6625 

6626 
6627 

6630 

6631 

6632 

6633 

6634 

6635 

6636 

6637 

6640 

6641 

6642 

6643 

6644 

6645 

6646 

6647 

6650 

6651 

6652 

6653 

6654 

6655 

6656 

6657 
6660 
6661 
6662 

6663 

6664 

6665 

6666 
6667 

6670 

6671 

6672 

6673 

6674 

6675 

6676 

6677 

6700 

6701 

6702 

6703 

6704 

6705 

6706 

6707 
6710 
671 1 

6712 

6713 

6714 

6715 


/PDP-8/57A 

*6624 

BOOT=6600 


MAG TAPE LIBRARY 


7/21/67 BIN RECORD 


6734 

MTRS 

7006 

RTL 


7602 

CLA 

HLT 

5307 

JMP 

BEGIN 

0000 

BEGG# 0 

3365 

DCA 

SWITCH 

4262 

JMS 

READ 

1301 

TAD 

M376 

7750 

SPA 

SNA CLA 

5241 

JMP 

• 4*4 

2365 

ISZ 

SWITCH 

7040 

CMA 


5231 

JMP 

BEGG*1 

1365 

TAD 

SWITCH 

7640 

SZA 

CLA 

5232 

JMP 

BEGG+2 

1367 

TAD 

CHAR 

0362 

AND 

MASK 

1347 

TAD 

M200 

7510 

SPA 


2230 

ISZ 

BEGG 

7750 

SPA 

SNA CLA 

5630 

JMP 

I BEGG 

1367 

TAD 

CHAR 

0260 

AND 

FMASK 

1261 

TAD 

CHANGE 

3366 

DCA 

MEMTEM 

5232 

JMP 

BEGG+2 

0070 

FMASK * 70 

6201 

CHANGE# CDF 

0000 

READ# 0 

0000 

0 


6031 

LOR j 

► KSF 

5264 

JMP 

• -1 

6036 

KRB 


3367 

DCA 

CHAR 

1367 

TAD 

CHAR 

5662 

JMP 

I READ 

601 1 

HIRj 

• RSF 

5272 

JMP 

.-1 

6016 

RRB 

RFC 

5267 

JMP 

LOR+3 

4351 

BEND> JMS AJ 

7041 

CIA 


1370 

TAD 

CHKSUM 

7402 

M376# HLT 

7640 

SZA 

CLA 

3305 

DCA 

.*2 

6032 

KCC 


7240 

STA 


5200 

JMP 

BOOT 

6032 

BEGIN# KCC 

6014 

RFC 


6224 

RIF 


1261 

TAD 

CHANGE 

3366 

DCA 

MEMTEM 

7604 

CLA 

OSR 

7700 

SMA 

CLA 


/ENTRY FROM COMMAND RECORD 

/L IS 1 IF PARITY ERROR. SET SRp FOR HI/LO READER 
/CONTINUE KEY STARTS BIN LOADER 
/REMAINDER SAME AS DIG-8-2-U, REV 3/23/66,. . . 

/. . . EXCEPT AS NOTED. 


/AC HOLDS CHECKSUM. L MAY BE 1. HIT CONT. KEY. . 

/. . . TO RETURN TO COMMAND MODE. 

/CHECKSUM NOT p. CHANGE "STA" TO n AND 6" 

/CLEAR KEYBOARD FLAG 

/SET FLAG IF CHECKSUM IS p. OTHERWISE CLEAR FLAG. 
/BOOTSTRAP STORES FLAG AND ENTERS COMMAND MODE 


- 14 - 




/BIN RECORD 


6716 

1361 

TAD 

HIRI 

6717 

1360 

TAD 

LORI 

6720 

3263 

DC A 

READ*** 1 

6721 

4230 

JMS 

BEGG 

6722 

5321 

JMP 

• -1 

6723 

3370 

60# 

DCA CHKSUM 

6724 

1366 

TAD 

MEMTEM 

6725 

3344 

DCA 

MEMELD 

6726 

1367 

TAD 

CHAR 

6727 

3363 

DCA 

WORDl 

6730 

4262 

JMS 

READ 

6731 

3364 

DCA 

W0RD2 

6732 

4230 

JMS 

BEGG 

6733 

5276 

JMP 

BEND 

6734 

4351 

JMS 

ASSEMB 

6735 

7420 

SNL 


6736 

5344 

JMP 

MEMELD 

6737 

3371 

DCA 

ORIGIN 

6740 

1363 

CHEX, TAD WORDl 

6741 

1364 

TAD 

W0RD2 

6742 

1370 

TAD 

CHKSUM 

6743 

5323 

JMP 

GO 

6744 

0000 

MEMELD# 0 

6745 

3771 

DCA 

I ORIGIN 

6746 

2371 

ISZ 

ORIGIN 

6747 

7600 

M200 

i# 7600 

6750 

5340 

JMP 

CHEX 

6751 

0000 

ASSEMB* 0 

6752 

1363 

TAD 

WORDl 

6753 

7106 

CLL 

RTL 

6754 

7006 

RTL 


6755 

7006 

RTL 


6756 

1364 

TAD 

W0RD2 

6757 

5751 

JMP 

I ASSEMB 

6760 

5264 

LORI 

# JMP LOR 

6761 

0006 

HIRI 

# HIR-LOR 

6762 

0300 

MASK 

# 300 

6763 

0000 

WORDl* 0 

6764 

0000 

W0RD2» 0 

6765 

0000 

SWITCH* 0 

6766 

0000 

MEMTEM, 0 

6767 

0000 

CHAR 

# 0 

6770 

0000 

CHKSUM* 0 

6771 

0000 

ORIGIN* 0 


ASSEMB 

6751 

BEGG 

6630 

BEGIN 

6707 

BEND 

6676 

BOOT 

6600 

CHANGE 

6661 

CHAR 

6767 

CHEX 

6740 

CHKSUM 

6770 

EMASK 

6660 

GO 

6723 

HIR 

6672 

HIRI 

6761 
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/BIN RECORD 


LOR 6664 
LORI 6760 
MASK 6762 
MEMELD 6744 
MEMTEM 6766 
M200 6747 
M376 6701 
ORIGIN 6771 
READ 6662 
SWITCH 6765 
W0RD1 6763 
W0RD2 6764 


\ 
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/PDP-8/57A MAG TAPE LIBRARY 
*7024 
BOOT»7000 
FLAG=7163 


FETCH RECORD 


7/21/67 


7024 

6734 

MTKS 

7025 

7006 

KTL 

7026 

7630 

SZL CLA 

7027 

7402 

PARERR, HLT 

7030 

1256 

TAD BUFIA 

703! 

6745 

MCA 

7032 

1317 

TAD T3A6I 

7033 

6706 

MTS 

7034 

6716 

MTC 

7035 

4301 

SEARCH* JMS 

7036 

7004 

RAL 

7037 

7710 

SPA CLA 

7040 

5313 

JMP OUT 

7041 

7420 

SNL 

7042 

5260 

JMP FOUND 

7043 

1257 

RESUME, TAD 

7044 

6745 

MCA 

7045 

7200 

CLA 

7046 

6724 

MRD 

7047 

5235 

JMP SEARCH 

7050 

0000 

PRINT, 0 

705! 

6041 

TSF 

7052 

5251 

JMP .-1 

7053 

6046 

TLS 

7054 

7200 

CLA 

7055 

5650 

JMP I PRINT 

7056 

7763 

BUFIA, 7763 

7057 

7764 

PUFIB, 776 A 

7060 

1277 

FOUND, TAD L 

706! 

6745 

MCA 

7062 

1300 

TAD LCNWC 

7063 

6742 

MRWC 

7064 

6724 

MRC 

7065 

4301 

JMS WAIT 

7066 

7604 

LAS 

7067 

7010 

RAR 

7070 

7630 

SZL CLA 

7071 

5323 

JMP RELOC 

7072 

1363 

TAD FLAG 

7073 

6745 

MCA 

7074 

7240 

STA 

7075 

6724 

MRC 

7076 

5351 

JMP RDPGM 

7077 

7762 

LCNIA, 7762 

7100 

0015 

LCNWC, -7763 

7101 

0000 

WAIT, 0 

7102 

7240 

STA 

7103 

6722 

MIWF 

7104 

6732 

MIEF 

7105 

6731 

MSEF 

7106 

5305 

JMP .-| 

7107 

7600 

P7600, 7600 

7110 

6734 

MTRS 

71 1 1 

7006 

RTL 

71 12 

5701 

JMP I WAIT 

7113 

6702 

OUT, MCD 

7114 

6701 

MSCR 

7115 

5314 

JMP .-1 


/ENTRY FROM COMMAND RECORD. LABEL IS IN BUFFER. 

/PARITY ERROR. L IS 1, AC IS p. 

/INITIALIZE CA AND CLEAR WC 

/SELECT UNIT 1, ODD PARITY, Qpp BPI, LOW SLICE 
/CONTINUOUS READ COMPARE FOR LABEL 


/ EOF 

/LABEL FOUND 
B 

/RE-INITIALIZE CA AND CLEAR WC 

/CHANGE TO CONTINUOUS READ COMPARE. SET DATA RQ 
/RESUME SEARCH 
/PRINTS CHARACTER 


/I WORD 

/CHANGE TO CONTINUOUS READ. CLEAR DATA RQ 
/READ PROGRAM IA-1 INTO FLAG, THEN WAIT FOR EOR. 

/CHECK SRI 1 

/RELOCATION DESIRED 

/RELOCATION NOT DESIRED 

/LOAD PROGRAM IA-1 INTO CA AND CLEAR WC 

/CLEAR DATA RQ 
/READ PROGRAM IN 


/CLEAR AND ENABLE WCO 
/ " " " ERF 

/WAIT FOR EOR 
/CLA 

/GET TAPE STATUS 

/END OF LIBRARY. STOP TAPE. 
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71 16 

5201 

JMP BOOT♦1 

71 17 

3476 

T3461# 3461-7763 

7120 

3561 

T3561# 3561 

7121 

0177 

P177# 177 

7122 

7777 

Ml# -1 

7123 

6702 

RELOC# MOD 

7124 

1 346 

TAD P 

7125 

4250 

JMS PRINT 

7126 

1341 

TAD 6 

7127 

4250 

JMS PRINT 

7130 

1243 

TAD RESUME 

7131 

4250 

JMS PRINT 

7132 

1363 

TAD FLAG 

7133 

7001 

I AC 

7134 

7100 

CLL 

7135 

7402 

HLT 

7136 

0321 

AND P177 

7137 

3363 

DCA FLAG 

7140 

7604 

LAS 

7141 

0307 

G# AND P7600 

7142 

1363 

TAD FLAG 

7143 

1322 

TAD Ml 

7144 

6745 

MCA 

7145 

7200 

CLA 

7146 

1320 

P# TAD T3561 

7147 

6706 

MTS 

7150 

6716 

MTC 

7151 

4301 

RDPGM# JMS WAIT 

7152 

7620 

SNL CLA 

7153 

5357 

JMP PAROK 

7154 

6702 

MCD 

7155 

3363 

DCA FLAG 

7156 

5227 

JMP PARERR 

7157 

7240 

PAROK# STA 

7160 

3363 

DCA FLAG 

7161 

5243 

JMP RESUME 


BOOT 

7000 

BUFIA 

7056 

BUFIB 

7057 

FLAG 

7163 

FOUND 

7060 

G 

7141 

LCNIA 

7077 

LCNWC 

7100 

Ml 

7122 

OUT 

71 13 

P 

7146 

PARERR 

7027 

PAROK 

7157 

PRINT 

7050 

P1 77 

7121 

P7600 

7107 

RDPGM 

7151 

RELOC 

7123 

RESUME 

7043 

SEARCH 

7035 

T3461 

71 17 

T3561 

7120 

WAIT 

7101 


/FETCH RECORD 

/BOOTSTRAP REWINDS TAPE AND ENTERS COMMAND MODE 


/RELOCATION DESIRED. STOP TAPE. 


/PRINT "PG/" 


/PROGRAM LA-1 


/AC HOLDS PROGRAM IA, L IS p. SET SR0-4 TO RELOC. PG. 
/HIT CONT. KEY TO READ IN AND RELOCATE PROGRAM 
/STORE NON-PAGE BITS OF IA 

/AC HOLDS RELOCATION PAGE 
/AC HOLDS RELOCATED IA 

/LOAD RELOCATED IA-1 INTO CA AND CLEAR WC 


/SELECT UNIT 1, ODD PARITY, 800 BPI, LOW SLICE 
/ READ IN PROGRAM IN CONTINUOUS MODE 
/WAIT FOR EOR, THEN GET TAPE STATUS 


/PARITY ERROR. STOP TAPE. 

/CLEAR FLAG 

/ PARITY OK 
/SET FLAG 

/PREPARE TO RESUME SEARCH FOR LABEL 


- 18 - 



/PDP-R/S7A MR6 TAPF LIBRARY 7/21/67 WRITF. RECORD 

*7224 


7224 

6734 

7225 

7006 

7226 

7630 

7227 

7402 

7230 

1267 

7231 

4307 

7232 

7402 

7233 

7604 

7234 

3270 

7235 

4307 

7236 

7606 

7237 

7604 

7240 

7041 

7241 

3363 

7242 

1305 

7243 

4341 

7244 

1306 

7245 

4341 

7246 

1271 

7247 

3357 

7250 

7001 

7251 

3360 

7252 

4317 

7253 

1270 

7254 

1272 

7255 

3364 

7256 

4317 

7257 

1364 

7260 

3357 

7261 

1363 

7262 

3360 

7263 

4317 

7264 

1303 

7265 

4341 

7266 

5201 

7267 

0003 

7270 

0000 

7271 

7763 

7272 

7777 

7273 

0000 

7274 

6041 

7275 

5274 

7276 

6046 

7277 

7200 

7300 

5673 

7301 

0257 

7302 

1221 

7303 

1321 

7304 

1421 

7305 

1661 

7306 

1 721 

7307 

0000 

7310 

1322 

731 1 

4273 

7312 

1314 

7313 

4273 


BOOT*7200 

FLAG=7363 

MTRS 

RTL 

SZL CLA 
HLT 

TAD P3 
JMS TYPOUT 
HLT 
LAS 

DCA IA 
JMS TYPOUT 
LAS HLT 
LAS 
CIA 

DCA FLAG 
TAD T1661 
JMS TAPE 
TAD TI721 
JMS TAPE 
TAD BUFIA 
DCA TIA 
I AC 

DCA TWC 
JMS WTCHK 
TAD IA 
TAD Ml 
DCA FLAG+1 
JMS WTCHK 
TAD FLAG+1 
DCA TIA 
TAD FLAG 
DCA TWC 
JMS WTCHK 
TAD T1321 
JMS TAPE 
JMP BOOT*1 
P3» 3 
IA, 0 

BUFIA, 7763 
Ml, -1 
PRINT, 0 
TSF 

JMP .-1 

TLS 

CLA 

JMP I PRINT 
SLASH, 257 
T1221, 1221 
T1321, 1321 
T1421, 1421 
T1661, 1661 
T1721, 1721 
TYPOUT, 0 
TAD F 
JMS PRINT 
TAD A 
JMS PRINT 


/ENTRY FROM COMMAND RECORD. LABEL IS IN BUFFER. 

/PARITY ERROR. L IS 1, AC IS p. 

/PRINT "IA/" 

/SET SR TO IA, HIT CONT. 

/STORE IA 
/PRINT "FA/" 

/AC HOLDS IA. L IS p. SET SR TO FA, HIT CONT. 


/STORE -FA. THIS ALSO SETS FLAG. 

/ SPACE TO EOF 

/BACKSPACE OVER EOF 

/INITIALIZE TAPE IA FOR LABEL BUFFER 

/ " " WC " " 

/WRITE AND CHECK LABEL RECORD 

/REPLACE 1ST LABEL CHAR WITH PROGRAM IA-1 
/WRITE AND CHECK LOCATION RECORD 

/PROGRAM IA-1 

/-FA 

/WRITE AND CHECK PROGRAM RECORD 
/WRITE EOF 

/BOOTSTRAP REWINDS TAPE AND ENTERS COMMAND MODE 


/PRINTS CHARACTER 


/PRINTS "LA/" OR "FA/" 
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/WRITE RECORD 


7314 

1301 

7315 

4273 

7316 

5707 

7317 

0000 

7320 

1302 

7321 

4341 

7322 

1306 

7323 

4341 

7324 

1304 

7325 

4341 

7326 

6734 

7327 

7006 

7330 

7700 

7331 

5717 

7332 

1306 

7333 

4341 

7334 

1303 

7335 

4341 

7336 

1306 

7337 

4341 

7340 

5320 

7341 

0000 

7342 

3361 

7343 

1357 

7344 

6745 

7345 

1360 

7346 

6742 

7347 

7200 

7350 

1361 

7351 

6706 

7352 

6716 

7353 

6701 

7354 

5353 

7355 

7200 

7356 

5741 

7357 

0000 

7360 

0000 

7361 

0000 

A 

7314 

BOOT 

7200 

BUFIA 

7271 

F 

7322 

FLAG 

7363 

IA 

72 70 

Ml 

7272 

PRINT 

7273 

P3 

7267 

SLASH 

7301 

tape 

7341 

TCM 

7361 

TIA 

7357 

TWC 

7360 


A, TAD SLASH 
JMS PRINT 
JMP I TYPOUT 
WTCHK, 0 
TAD TI221 
JMS TAPE 
F, TAD T1721 
JMS TAPE 
TAD TIA21 
JMS TAPE 
MTRS 
RTL 

SMA CLA 
JMP I WTCHK 
TAD T172I 
JMS TAPE 
TAD T132I 
JMS TAPE 
TAD T1721 
JMS TAPE 
JMP WTCHK+1 
TAPE* 0 
DCA TCM 
TAD TIA 
MCA 

TAD TWC 

MRWC 

CLA 

TAD TCM 

MTS 

MTC 

MSCR 

JMP .-1 

CLA 

JMP I TAPE 
TIA, 0 
TWC, 0 
TCM, 0 


TYPOUT 7307 
T1221 7302 


/WRITE RECORD 

/BACKSPACE OVER RECORD 

/ READ COMPARE RECORD 
/GET TAPE STATUS 


/NO ERROR 

/ READ COMPARE ERROR 
/ BACKSPACE OVER BAD RECORD 
/WRITE. . . 

/.. .3" 

/.. . BLANK 
/.. .TAPE. 

/WRITE AND CHECK RECORD AGAIN 
/ BASIC TAPE SUBROUTINE 
/STORE TAPE COMMAND 

/LOAD CA 

/COMPUTE: -WC = TIA / TWC 
/LOAD WC 


/SELECT UNIT 1, ODD PARITY, 800 BPI, HIGH SLICE 
/EXECUTE TAPE FUNCTION 

/WAIT UNTIL THROUGH 


T1321 

T1421 

T1661 

TI721 

WTCHK 


7303 

7304 

7305 

7306 
7317 
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* 


7424 

7425 

7426 

7427 
7430 
743! 

7432 

7433 

7434 

7435 

7436 

7437 

7440 

7441 

7442 

7443 

7444 

7445 

7446 

7447 
7450 
745! 

7452 

7453 

7454 

7455 

7456 

7457 

7460 

7461 

7462 

7463 

7464 

7465 

7466 

7467 

7470 

7471 

7472 


6734 
7006 
7602 
7604 
7 700 

5253 
6032 
6031 
5233 
6036 
7106 
7006 
7510 
5233 
7006 
6031 
5243 
6034 
7420 
3652 
3252 
5232 
0000 
6014 
6011 

5254 
6016 
7106 
7006 
7510 
5271 
7006 
601 1 
5264 
6016 
7420 
3652 
3252 
5254 


/PDP-8/57A MAG TAPE LIBRARY 7/21/67 RIM RECORD 

*7424 

MTRS /ENTRY FROM COMMAND RECORD 

RTL 

CLA HLT /L IS 1 IF PARITY ERROR. SET SR0 FOR HI/LO READER 
LAS /CONT. STARTS RIM LOADER 

SMA CLA 
JMP HIR 

LOR# KCC /LOW SPEED RIM LOADER 
KSF 

JMP .-1 
KRB 

CLL RTL 

RTL 

SPA 

JMP LOR+1 

RTL 

KSF 

JMP .-1 

KRS 

SNL 

DCA I TEMP 
DCA TEMP 
JMP LOR 
TEMP# 0 

HIK# RFC /HIGH SPEED RIM LOADER 
RSF 

JMP * -1 
RRB RFC 
CLL RTL 
RTL 
SPA 

JMP REPEAT-! 

RTL 

RSF 

JMP .-1 
RRB RFC 
SNL 

DCA I TEMP 
DCA TEMP 

REPEAT# JMP HIR+1 


HIR 7453 
LOR 7432 
REPEAT 7472 
TEMP 7452 
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6200 

6201 

6202 

6203 

6204 

6205 

6206 
6207 
6210 
621 1 
6212 

6213 

6214 

6215 

6216 
6217 
6220 
6221 
6222 

6223 

6224 

6225 

6226 
6227 

6230 

6231 

6232 

6233 

6234 

6235 

6236 

6237 

6240 

6241 

6242 

6243 
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